R/Dashboard_Menu/InputTab/Back End/InputTab_B.R

In dwarak98/seer: What the Package Does (One Line, Title Case)

library(shinydashboard)
library(shiny)

InputTabServer <- function(id) {
  moduleServer(
    id,
    function(input, output, session){
      data <- reactive({
        req(input$file1)
        inFile <- input$file1
        print(inFile$datapath)
        read.csv(inFile$datapath)
      })

      ########## Displays top 5 rows of the imported csv #############
      output$head <- DT::renderDataTable({
        data() # input$n,
      },filter =  'top',
      options = list(scrollX = TRUE)
      )

      return(data)
    }
  )
}